---
title: "United Kingdom"
output:
flexdashboard::flex_dashboard:
theme:
version: 4
primary: "#002231"
navbar-bg: "white"
source_code: embed
---
```{r setup, include=FALSE}
library(dygraphs)
library(xts)
library(lubridate)
library(dplyr)
library(tidyr)
library(leaflet)
library(sp)
library(raster)
library(mapview)
library(leafsync)
library(glue)
library(htmltools)
#author: Wanda Bodnar
## Data sources:
#https://climate.metoffice.cloud/dashboard.html,
#https://www.metoffice.gov.uk/pub/data/weather/uk/climate/datasets/Tmean/date/UK.txt,
#https://www.metoffice.gov.uk/pub/data/weather/uk/climate/stationdata/heathrowdata.txt,
##https://www.kaggle.com/datasets/noahx1/london-weather-2000-2023,
#https://psmsl.org/data/,
#https://www.sciencedirect.com/science/article/pii/S0079661121000112?via%3Dihub#s0180,
#https://uk-cri.org/
```
Column {data-width=550}
-------------------------------------
### UK annual mean air temperature
```{r}
setwd("C:/Users/bodna/OneDrive - University College London/Roadmap to Climate Resilience/Working folder/Data/Various")
uk <- read.csv("uk_temp.csv")
dygraph(uk, main = "") %>%
dySeries("ann", label = "°C") %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.1) %>%
dyAxis("y", label = "Temperature (°C)") %>%
dyLegend(show = "always", hideOnMouseOut = T) %>%
dyRangeSelector()
```
### Great Britain sea level from tide gauges
```{r}
setwd("C:/Users/bodna/OneDrive - University College London/Roadmap to Climate Resilience/Working folder/Data/Various")
sea <- read.csv("uk2.csv")
dygraph(sea, main = "") %>%
dySeries("mm", label = "mm", color = "lightblue") %>%
dyAxis("y", label = "Sea level (mm)") %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.8) %>%
dyLegend(show = "always", hideOnMouseOut = T) %>%
dyRangeSelector()
```